home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)t8.d64 / sheet music.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  458b  |  25 lines
  1. 10 REM MUSIC.LOAD.2
  2. 15 IF F=0 THEN F=1:LOAD "SHEET DATA.D",8,1
  3. 20 POKE 53281,0:PRINT"":G=13*4096
  4. 40 POKE G+29,0:POKE G+39,14:POKE G+28,1
  5. 100 B=2*4096+1*256+15*16+0
  6. 110 TM=B+6
  7. 120 AD=B+7
  8. 130 SR=B+8
  9. 140 PC=B+9
  10. 150 WF=B+10
  11. 200 READ T:IF T=0 THEN END
  12. 210 READ A,D,S,R,W,P
  13. 250 PRINT "[147]PRESS A KEY TO PLAY THE TUNE..."
  14. 260 GET A$:IF A$="" GOTO 260
  15. 300 POKE TM,T
  16. 310 POKE AD,A*16+D
  17. 320 POKE SR,S*16+R
  18. 330 POKE WF,W
  19. 340 POKE PC,P
  20. 350 SYS B
  21. 400 GOTO 200
  22. 500 DATA 70,7,9,0,0,17,0
  23. 600 DATA 65,2,7,0,0,33,1
  24. 700 DATA 0
  25.